home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / z / oldwp / Prefs / WangiPrefs.h < prev    next >
Text File  |  1995-02-25  |  4KB  |  170 lines
  1. {$DEFINE PREFSEDITOR}
  2.  
  3. TYPE
  4.     pIPCMsg = ^tIPCMsg;
  5.     tIPCMsg = record
  6.         ipc_Msg    : tMessage; { system message structure                   }
  7.         ipc_Type,              { type of message                            }
  8.         ipc_Left,              { dimension of window if type = IPC_SENDSIZE }
  9.         ipc_Top,
  10.         ipc_Width,
  11.         ipc_Height : LONG
  12.     End;
  13.     
  14.     tProgVars = Record
  15.         arg_FileName,
  16.         arg_DirPart,
  17.         arg_FilePart : String;
  18.     End;
  19.     
  20. Const
  21.     { constants fo ipc_Type }
  22.     IPC_SENDSIZES    = 1;
  23.     IPC_REQUESTSIZES = 3;
  24.  
  25.     { Gadget ID's }
  26.     G_NI        = 1; { NULL initialised gadget   }
  27.     { Button gadgets }
  28.     G_B_TOP     = 2;
  29.     G_B_UP      = 3;
  30.     G_B_DOWN    = 4;
  31.     G_B_BOTTOM  = 5;
  32.     G_B_SORT    = 6;
  33.     G_B_NEW     = 7;
  34.     G_B_REMOVE  = 8;
  35.     G_B_COPY    = 9;
  36.     G_B_SAVE    = 10;
  37.     G_B_CANCEL  = 11;
  38.     { listview gadget }
  39.     G_LV        = 12;
  40.     G_C_SET     = 13;
  41.     { CreateContext() gadget }
  42.     G_CC        = 14; 
  43.     
  44.     { Menu identifiers }
  45.     MI_OPEN = 1;
  46.     MI_APPE = 2;
  47.     MI_SAVA = 3;
  48.     MI_TEST = 4;
  49.     MI_INFO = 5;
  50.     MI_QUIT = 6;
  51.     MI_RDEF = 7;
  52.     MI_REST = 8;
  53.     
  54.     { Setting identifiers }
  55.     C_FONT = 0;
  56.     C_STIT = 1;
  57.     C_WTIT = 2;
  58.     C_POSI = 3;
  59.     LabMax = 3;
  60.     
  61.     
  62.  
  63.     { size labels }
  64.  
  65.     S_Gad_H   = 1;
  66.     S_G1_L    = 2;
  67.     S_G2_L    = 3;
  68.     S_G3_L    = 4;
  69.     S_WB_T    = 6;
  70.     S_WB_L    = 7;
  71.     S_WB_R    = 8;
  72.     S_WB_B    = 9;
  73.     S_G1_W    = 10;
  74.     S_G2_W    = 11;
  75.     S_G3_W    = 12;
  76.     S_G_H     = 13;
  77.     S_LV_H    = 14;
  78.     TBS       = 15;
  79.     extra     = 16;
  80.     S_SCRID_W = 17;
  81.     TxtWin_L  = 18;
  82.     RexxWin_L = 19;
  83.     Synch_W   = 20;
  84.     SOTxt_W   = 21;
  85.     QTxt_W    = 22;
  86.     S_CM_W    = 23;
  87.  
  88.     G_B_BOTTOMtxt : string[8]  = '_Bottom'#0;
  89.     G_B_TOPtxt    : string[5]  = '_Top'#0;
  90.     G_B_UPtxt     : string[4]  = '_Up'#0;
  91.     G_B_DOWNtxt   : string[6]  = 'Do_wn'#0;
  92.     G_B_SORTtxt   : string[5]  = 'Sort'#0;
  93.     G_B_NEWtxt    : string[5]  = '_New'#0;
  94.     G_B_REMOVEtxt : string[8]  = 'Remo_ve'#0;
  95.     G_B_COPYtxt   : string[6]  = 'Cop_y'#0;
  96.     G_B_SAVEtxt   : string[6]  = '_Save'#0;
  97.     G_B_CANCELtxt : string[8]  = '_Cancel'#0;
  98.     Sampstr       : string[25] = 'XxXxXxXxXxXxXxXxXxXxXxX'#0;
  99.     SampStr2      : String[5] = '337'#0;
  100.     PREFSNAME     : string[14] = 'S:Wangi.prefs';
  101.     vi            : pointer = NIL;
  102.     TheWindow     : pWindow = NIL;
  103.     CurrentTop    : Longint = 0;
  104.     CurrentOrd    : Longint = -1;
  105.     Listviewrows  : Longint = 20;
  106.     ZoomSizes     : Array[0..3] of Integer = (-1,-1,200,0);
  107.     RememberKey   : pRemember = NIL;
  108.     Curset        : LONG = 0;
  109.     BF_W  = 10;
  110.     BF_H  =  5;
  111.     BBF_H = 20;
  112.     
  113. Var
  114.     CurrentList : pList;
  115.     
  116. function  CStrConstPtrAR(rk : ppRemember; s : string) : pointer; Forward;
  117. {$I Config.PAS }
  118.  
  119. { global variables }      
  120. Var
  121.     reg          : tKey;
  122.     SetList      : pList;
  123.     Gads         : Array [G_NI..G_CC] Of pGadget;
  124.     Gadgetflags  : tNewGadget;
  125.     My_Font      : tTextAttr;
  126.     Sizes        : Array[1..23] Of Integer;
  127.     DummyReq     : tRequester;
  128.     WindowIDCMP  : LONG;
  129.     CurrentNode  : pMyNode;
  130.     pred, succ, 
  131.     tmpnode, 
  132.     newnode      : pMyNode;
  133.     i, oldord    : longint;
  134.     wl           : pointer;
  135.     tl           : long;
  136.     V39          : Boolean;
  137.     menuStrip    : pMenu;
  138.     Labs         : Array[0..LabMax] of STRPTR;
  139.     V            : tProgVars;
  140.     bf           : tBackFill;
  141.     aw           : pAppWindow;
  142.     AppPort      : pMsgPort;
  143.     
  144. { FORWARD our functions and procedures }
  145.  
  146. Function  GadEDWindow(Left, Top : Integer; node : pMyNode) : Boolean; Forward;
  147. Procedure PosWindow(Left, Top : Integer); Forward;
  148. Function  Add_Name(name : string) : pMyNode; Forward;
  149. Procedure DetachObjectList; Forward;
  150. Procedure AttachObjectList; Forward;
  151. Procedure SortGadgetFunc; Forward;
  152. Function  CalcDown(across : integer; gad : pGadget; win : pWindow) : Longint; Forward;
  153. Procedure InitCD; Forward;
  154. Procedure Close_Window; Forward;
  155. Procedure HandleIDCMP; Forward;
  156. Procedure main; Forward;
  157. Function  open_window : Boolean; Forward;
  158. Function  Open_Libs : Boolean; Forward;
  159. Procedure Close_Libs; Forward;
  160. Procedure DisableGadget(g : pGadget; w : pWindow; Disable : byte); Forward;
  161. Function  Execsynch(cmd : STRPTR) : Boolean; Forward;
  162. Function  UpperStr(s:String):String;Forward;
  163.  
  164. {$I Version.h            }
  165. {$I Tooltype.PAS         }
  166. {$I List.PAS             }
  167. {$I Library.PAS          }
  168. {$I Window_Main.PAS      }
  169. {$I Window_GadgetED.PAS  }
  170. {$I Window_Pos.PAS       }